home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Updates / General / Canvas 3.0.4->3.0.5 / Updated Tools / Separations / Separations.rsrc / hd11_1010_CvHeader < prev    next >
Encoding:
Text File  |  1992-10-05  |  10.5 KB  |  299 lines
  1. %%BeginProcSet:CanvasDict
  2. /CanvasDict where not{/CanvasDict 250 dict def}{pop}ifelse
  3. CanvasDict begin
  4. systemdict/setpacking known{/origpack currentpacking def true setpacking}if
  5. /bdf{bind def}bind def
  6. /xdf{exch bind def}bdf
  7. /min{2 copy gt{exch}if pop}bdf
  8. /edf{exch def}bdf
  9. /max{2 copy lt{exch}if pop}bdf
  10. /cvmtx matrix def
  11. /tpmx matrix def
  12. /currot 0 def
  13. /rotmtx matrix def
  14. /origmtx matrix def
  15. /cvangle{360 exch sub 90 add 360 mod}bdf
  16. /setrot{/currot edf rotmtx currentmatrix pop 2 copy translate currot rotate neg exch neg exch translate}bdf
  17. /endrot{rotmtx setmatrix}bdf
  18. /i systemdict/image get def/T true def/F false def/dbg F def
  19. /ncolors 0 def/st0 ()def/st1 ()def/proc0 {}def
  20. /penh 1 def/penv 1 def/penv2 0 def/penh2 0 def/samplesize 0 def/width 0 def/height 0 def
  21. /setcmykcolor where not{/setcmykcolor{/b edf 3{b add 1.0 exch sub 0.0 max 1.0 min 3 1 roll}repeat systemdict begin setrgbcolor end}bdf}{pop}ifelse
  22. /doeoclip{closepath{eoclip}stopped{currentflat dup 2 mul setflat eoclip setflat}if}bdf
  23. /SpaceExtra 0 def/LetterSpace 0 def/StringLength 0 def/NumSpaces 0 def/JustOffset 0 def
  24. /f0{{eofill}stopped{currentflat dup 2 mul setflat eofill setflat}if} def
  25. /s0{1 setlinewidth cvmtx currentmatrix pop penh penv scale stroke cvmtx setmatrix}def
  26. /f1{_bp _fp impat}def
  27. /s1{cvmtx currentmatrix pop 1 setlinewidth penh penv scale
  28. {strokepath}stopped{currentflat dup 2 mul setflat strokepath setflat}if 
  29. _bp
  30. cvmtx setmatrix _fp impat}def
  31. /filltype 0 def
  32. /stroketype 0 def
  33. /f{filltype 0 eq{f0}{f1}ifelse}bdf
  34. /s{stroketype 0 eq{s0}{s1}ifelse}bdf
  35. /_fp{}def
  36. /_bp{}def
  37. /_fg 1 def
  38. /_pg 0 def
  39. /_bkg 1 def
  40. /_frg 0 def
  41. /_frgb 3 array def
  42. /_frrgb [0 0 0] def
  43. /_fcmyk 4 array def
  44. /_frcmyk [0 0 0 1] def
  45. /_prgb 3 array def
  46. /_pcmyk 4 array def
  47. /_bkrgb [1 1 1] def
  48. /_bkcmyk [0 0 0 0] def
  49. /fg{/_fg exch def /filltype 0 def/fills{_fg setgray}def}def
  50. /frgb{_frgb astore pop /filltype 0 def/fills{_frgb aload pop setrgbcolor}def}def
  51. /fcmyk{_fcmyk astore pop /filltype 0 def/fills{_fcmyk aload pop setcmykcolor}def}def
  52. /pg{/_pg exch def /stroketype 0 def/pens{_pg setgray}def}def
  53. /prgb{_prgb astore pop /stroketype 0 def/pens{_prgb aload pop setrgbcolor}def}def
  54. /pcmyk{_pcmyk astore pop /stroketype 0 def/pens{_pcmyk aload pop setcmykcolor}def}def
  55. /fpat{/fstr edf/filltype 1 def/fills{/patstr fstr def}bdf}bdf
  56. /ppat{/sstr edf/stroketype 1 def/pens{/patstr sstr def}bdf}bdf
  57. /bkg{ /_bkg exch def /_bp{gsave _bkg setgray fill grestore}def}def
  58. /bkrgb{_bkrgb astore pop/_bp{gsave _bkrgb aload pop setrgbcolor fill grestore}def}def
  59. /bkcmyk{_bkcmyk astore pop/_bp{gsave _bkcmyk aload pop setcmykcolor fill grestore}def}def
  60. /frg{ /_frg exch def /_fp{_frg setgray}def}def
  61. /frrgb{_frrgb astore pop/_fp{_frrgb aload pop setrgbcolor}def}def
  62. /frcmyk{_frcmyk astore pop/_fp{_frcmyk aload pop setcmykcolor}def}def
  63. /icomp{/ncolors edf
  64. ncolors 1 gt{/proc0 edf
  65. dup dup 0 get ncolors div cvi exch 0 3 -1 roll put
  66. 4 -1 roll ncolors div cvi 4 1 roll{proc0 dup/st0 edf
  67. 0 exch ncolors exch length
  68. dup ncolors sub exch ncolors div cvi string/st1 edf
  69. {dup 0 exch dup 1 exch
  70. 2 add{st0 exch get add}bind for
  71. 3 div ncolors 4 eq{exch dup 3 1 roll 3 add st0 exch get add 255 exch sub dup 0 lt{pop 0}if}if cvi
  72. dup 255 gt{pop 255}if
  73. exch ncolors div cvi exch
  74. st1 3 1 roll put}bind for
  75. st1}}if i}bdf
  76. /ci
  77. {/colorimage where
  78. {pop false exch colorimage}
  79. {icomp}
  80. ifelse}bdf
  81. /impat
  82. {/cnt 0 def
  83. /MySave save def
  84. currot 0 ne{currot neg rotate}if
  85. {clip}stopped{currentflat dup 2 mul setflat clip setflat}if
  86. {flattenpath}stopped{currentflat dup 3 mul setflat flattenpath setflat}if
  87. {pathbbox}stopped
  88. not{3 -1 roll
  89. 8 div floor 8 mul dup/starty edf
  90. sub abs 8 div ceiling 8 mul cvi/height edf
  91. exch 8 div floor 8 mul dup/startx edf
  92. sub abs 8 div ceiling 8 mul cvi/width edf
  93. startx starty translate
  94. width height scale
  95. /height height 8 mul def
  96. /st0 width string def
  97. width height T [width 0 0 height neg 0 height]
  98. {patstr
  99. cnt 8 mod
  100. get/st1 edf
  101. 0 1
  102. st0 length 1 sub dup 0 le{pop 1}if
  103. {st0 exch
  104. st1
  105. put}bind for/cnt cnt 1 add def
  106. st0}bind
  107. imagemask
  108. }if
  109. MySave restore
  110. newpath}bdf
  111. /cm{/ncolors edf
  112. translate
  113. scale/height edf/colorimage where
  114. {pop}
  115. {ncolors mul}ifelse/width edf
  116. /tbitstr width string def
  117. width height 8 [width 0 0 height neg 0 height]
  118. {currentfile tbitstr readhexstring pop}bind
  119. ncolors
  120. dup 3 eq {ci}{icomp}ifelse}bdf
  121. /im{translate
  122. scale
  123. /height edf
  124. /width edf
  125. /tbitstr width 7 add 8 div cvi string def
  126. width height 1 [width 0 0 height neg 0 height]
  127. {currentfile tbitstr readhexstring pop}bind
  128. i}bdf
  129. /imk{/invFlag edf
  130. translate
  131. scale
  132. /height edf
  133. /width edf
  134. /tbitstr width 7 add 8 div cvi string def
  135. width height invFlag [width 0 0 height neg 0 height]
  136. {currentfile tbitstr readhexstring pop}bind
  137. imagemask}bdf
  138. /BeginEPSF
  139. {/MySave save def
  140. /dict_count countdictstack def
  141. /op_count count 1 sub def
  142. userdict begin
  143. /showpage {} def
  144. 0 setgray 0 setlinecap
  145. 1 setlinewidth 0 setlinejoin
  146. 10 setmiterlimit [] 0 setdash newpath
  147. /languagelevel where
  148. {pop languagelevel 1 ne{false setstrokeadjust false setoverprint}if}if
  149. }bdf
  150. /EndEPSF
  151. {count op_count sub {pop}repeat
  152. countdictstack dict_count sub {end}repeat
  153. MySave restore}bdf
  154. /rectpath {/cv_r edf/cv_b edf/cv_l edf/cv_t edf
  155. cv_l cv_t moveto cv_r cv_t lineto cv_r cv_b lineto cv_l cv_b lineto cv_l cv_t lineto closepath}bdf
  156. /setpen{/penh edf/penv edf/penv2 penv 2 div def/penh2 penh 2 div def}bdf
  157. /dostroke{not pens 1.0 currentgray ne or {s}{newpath}ifelse}bdf
  158. /dodashfill{not fills 1.0 currentgray ne or
  159. {gsave f grestore gsave [] 0 setdash 
  160. stroketype/stroketype filltype def
  161. s/stroketype edf grestore}{newpath}ifelse}bdf
  162. /dofill{not fills 1.0 currentgray ne or {f}{newpath}ifelse}bdf
  163. /dofillsave{not fills 1.0 currentgray ne or {gsave f grestore}if}bdf
  164. /doline{not pens 1.0 currentgray ne or {filltype/filltype stroketype def f/filltype edf}{newpath}ifelse}bdf
  165. /spx{SpaceExtra 0 32 4 -1 roll widthshow}bdf
  166. /lsx{SpaceExtra 0 32 LetterSpace 0 6 -1 roll awidthshow}def
  167. /Rjust{stringwidth pop JustOffset exch sub /JustOffset edf}bdf
  168. /Cjust{stringwidth pop 2 div JustOffset exch sub /JustOffset edf}bdf
  169. /adjfit{stringwidth pop LetterSpace StringLength 1 sub mul add SpaceExtra NumSpaces mul add dup /pw edf JustOffset exch 
  170. sub dup /wdif edf StringLength div dup abs 1.0 gt{pop 0}if LetterSpace add /LetterSpace edf}bdf
  171. /ulb{currentpoint pop /underlinpt edf}bdf
  172. /ule{gsave currentpoint newpath moveto [] 0 setdash currentfont dup /ft1 known{dup /ft1 get begin /FontMatrix get FontMatrix tpmx concatmatrix pop}
  173. {begin FontMatrix tpmx copy pop}ifelse FontInfo begin UnderlinePosition UnderlineThickness end end dup tpmx
  174. dtransform pop setlinewidth dup tpmx dtransform pop 0 exch rmoveto underlinpt currentpoint pop sub 0 rlineto stroke grestore}bdf
  175. /fittext{ /SpaceExtra edf /LetterSpace edf /StringLength edf /NumSpaces edf /JustOffset edf not 1 currentgray ne or
  176. {dup {ulb}if exch
  177. dup adjfit
  178. lsx {ule}if}{pop pop}ifelse}bdf
  179. /cvRecFont{/encod edf FontDirectory 2 index known{cleartomark}{findfont dup length 1 add dict begin
  180. {1 index/FID ne{def}{pop pop}ifelse}forall encod{/Encoding CVvec def}if
  181. currentdict end definefont cleartomark}ifelse}bdf
  182. /wrk1 ( ) def/wdict 16 dict def
  183. /Work75 75 string def /Nmk{Work75 cvs dup}bdf /Npt{put cvn}bdf /dhOdh{Nmk 2 79 Npt}bdf /dhodh{Nmk 2 111 Npt}bdf    /dhSdh{Nmk 2 83 Npt}bdf
  184. /sfWidth{gsave 0 0 moveto 0 0 lineto 0 0 lineto 0 0 lineto closepath clip stringwidth grestore}bdf
  185. /MakOF{dup dhodh FontDirectory 1 index known{exch pop}{exch findfont dup length 1 add dict begin
  186. {1 index/FID ne 2 index /UniqueID ne and{def}{pop pop}ifelse}forall
  187. /PaintType 2 def
  188. /StrokeWidth .24 1000 mul ftSize div dup 12 lt{pop 12}if def
  189. dup currentdict end definefont pop}ifelse}bdf
  190. /fts{dup/ftSize edf}def
  191. /mkFT{
  192.  
  193.     dup/FontType get 0 eq
  194.     {
  195.         dup maxlength dict begin
  196.  
  197.         {1 index/FID ne 2 index /UniqueID ne and{def}{pop pop}ifelse}forall
  198.         currentdict end
  199.         dup/FDepVector 2 copy get
  200.         [ 
  201.         exch 6 index 
  202.         exch 6 index
  203.         exch{mkFT 3 1 roll}forall pop pop
  204.         ] put dup
  205.     }
  206.     {
  207.         /tempFT 12 dict def 
  208.         tempFT begin
  209.         /FontMatrix [1 0 0 1 0 0] def
  210.         /FontType 3 def
  211.         dup/Encoding get/Encoding exch def
  212.         /proc2 2 index def
  213.         dup/ft1 exch def
  214.         /ft2 1 array def    
  215.         /FontBBox [0 0 1 1] def
  216.         /BuildChar
  217.         {
  218.             exch dup/ftdt edf begin 
  219.                 wdict begin
  220.                     /chr edf
  221.                     /chrst wrk1 dup 0 chr put def 
  222.                     ft2 0 get null eq
  223.                     {
  224.                         ft1 dup length 2 add dict begin
  225.                         {1 index/FID ne 2 index /UniqueID ne and{def}{pop pop}ifelse}forall
  226.                         /PaintType 2 def
  227.                         /StrokeWidth .24 1000 mul ftSize div dup 12 lt{pop 12}if def
  228.                         currentdict end
  229.                         /q exch definefont
  230.                         ft2 exch 0 exch put
  231.                     }if
  232.                     ftdt/proc2 get exec 
  233.                 end 
  234.             end
  235.         }def
  236.         
  237.         end
  238.      
  239.         tempFT
  240.                 
  241.     }ifelse
  242.     3 index exch
  243.     definefont exch pop
  244. }bdf
  245. /OLFt{
  246.     dup dhOdh
  247.     FontDirectory 1 index known
  248.     {exch pop}
  249.     {
  250.         dup 3 -1 roll
  251.         findfont
  252.         {outproc} exch
  253.         mkFT
  254.         pop pop pop
  255.     }ifelse
  256. }bdf
  257. /ShFt{
  258.     dup dhSdh 
  259.     FontDirectory 1 index known
  260.     {exch pop}
  261.     {
  262.         dup 3 -1 roll 
  263.         findfont 
  264.         {ShadChar} exch
  265.         mkFT
  266.         pop pop pop
  267.         
  268.     }ifelse
  269. }bdf
  270. /mshw{moveto show}bdf
  271. /outproc{ft1 setfont gsave chrst sfWidth grestore setcharwidth dblsh}bdf
  272. /dblsh{currentgray 1 setgray chrst 0 0 mshw setgray ft2 0 get setfont chrst 0 0 mshw}bdf
  273. /ShadChar{ft1 setfont gsave chrst sfWidth 1 index 0 ne{exch .05 add exch}if grestore setcharwidth
  274. chrst .06 0 mshw 0 .05 translate dblsh}bdf
  275. /LswUnits{72 75 div dup scale}bdf
  276. /erasefill{_bp}def
  277. /CVvec 256 array def
  278. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  279. CVvec 0 32 getinterval astore pop
  280. CVvec 32/Times-Roman findfont/Encoding get
  281. 32 96 getinterval putinterval CVvec dup 39/quotesingle put 96/grave put
  282. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
  283. /agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
  284. /ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
  285. /ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  286. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  287. /registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
  288. /infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
  289. /product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  290. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
  291. /guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe
  292. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
  293. /ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  294. /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute
  295. /Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
  296. /apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
  297. /macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  298. CVvec 128 128 getinterval astore pop
  299.